This forum is closed to new posts and
responses. Individual names altered for privacy purposes. The information contained in this website is provided for informational purposes only and should not be construed as a forum for customer support requests. Any customer support requests should be directed to the official HCL customer support channels below:
RE: Urgent: Create Mailfile (AdminP action) doesn't work after upgraded to R601 ~Mario Quetfanasteretsi 19.Nov.03 09:59 PM a Web browser Domino Administrator 6.0.1 CF1Windows 2000
It is nothing happened! (no error and no action at all). AdminP is running ok by using manual way to register user with selecting create mailfile by Adminp.
I am thinking R6 has introduced some new fields for AdminP request and don't know what. The new AdminP class doesn't have the method to create mailfile.
I am attaching the code below, it was working OK on R5 server.
Sub adminPReqCreateMail
' Create AdminP Document for creating new users mail-file
'
If dbAdminP Is Nothing Then
Set dbAdminP = New NotesDatabase (docLog.regMailServer(0),"Admin4.NSF")
'Set dbAdminP = New NotesDatabase (docPerson.MailServer(0),"admin4.NSF")
End If
Dim admDoc As New NotesDocument (dbAdminP)
Dim admItem As NotesItem
'set field values -----------------------------------------------
'users mail server
admDoc.ProxyServer = docLog.regMailServer(0)
admDoc.ProxySourceServer = docLog.regMailServer(0)
'Sign field and set field flags
Set admItem = admDoc.GetFirstItem( "ProxyAction")
admItem.IsSigned = True
admItem.IsProtected = True
If doclog.MailTemplate(0) = "" Then
admDoc.ProxyTextItem1 = genProfileDoc.MailTemplate(0)
Else
admDoc.ProxyTextItem1 = doclog.MailTemplate(0)
End If
Set admItem = admDoc.GetFirstItem( "ProxyTextItem1")
admItem.IsSigned = True
admItem.IsProtected = True
Return to top
. . . . RE: Urgent: Create Mailfile (AdminP... (~Mario Quetfana... 19.Nov.03) 
Print this page
